home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / zebu v3.3.3 (LALR parser) / zebu-package.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  3.5 KB  |  94 lines  |  [TEXT/ttxt]
  1. ; -*- mode:     CL -*- ----------------------------------------------------- ;
  2. ; File:         zebu-package.l
  3. ; Description:  package definition
  4. ; Author:       Joachim H. Laubsch
  5. ; Created:      13-Nov-91
  6. ; Modified:     Tue Apr 26 17:23:50 1994 (Joachim H. Laubsch)
  7. ; Language:     CL
  8. ; Package:      CL-USER
  9. ; Status:       Experimental (Do Not Distribute) 
  10. ; RCS $Header: $
  11. ;
  12. ; (c) Copyright 1991, Hewlett-Packard Company
  13. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  14. ; Revisions:
  15. ; RCS $Log: $
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17.  
  18. (in-package "CL-USER")
  19. (provide "zebu-package")
  20.  
  21. #+LUCID                    ; while not up tp CLtL2
  22. (eval-when (compile load eval)
  23.   (defmacro LCL::DECLAIM (decl-spec) `(proclaim ',decl-spec)))
  24.  
  25. (defpackage "PSGRAPH"
  26.     (:use #+:cltl2 "COMMON-LISP"
  27.       #-:cltl2 "LUCID-COMMON-LISP"))
  28.  
  29. (defpackage "ZEBU"
  30.     (:nicknames "ZB")
  31.     #+LUCID (:use "LISP" "LUCID-COMMON-LISP")
  32.     #+LUCID (:import-from "SYSTEM" "*KEYWORD-PACKAGE*")
  33.     #+LUCID (:import-from "LCL" "DECLAIM")
  34.     (:import-from "PSGRAPH" PSGRAPH::PSGRAPH)
  35.     #+MCL   (:use "COMMON-LISP" "CCL")
  36.     #+KCL   (:use "LISP")
  37.     #+ALLEGRO (:use "COMMON-LISP" "EXCL")
  38.     
  39.     (:import-from "CL-USER" CL-USER::*ZEBU-DIRECTORY*
  40.           CL-USER::*ZEBU-binary-directory*)
  41.     (:export "*COMMENT-BRACKETS*" "*COMMENT-START*" "*PRESERVE-CASE*"
  42.          "*CASE-SENSITIVE*"
  43.          "*DISALLOW-PACKAGES*" "*STRING-DELIMITER*"
  44.          "*SYMBOL-DELIMITER*"
  45.          "*IDENTIFIER-START-CHARS*" "*IDENTIFIER-CONTINUE-CHARS*"
  46.          "*ALLOW-CONFLICTS*" "*WARN-CONFLICTS*" 
  47.          "*CURRENT-GRAMMAR*" "*GENERATE-DOMAIN*"
  48.          "*ZEBU-VERSION*"
  49.          "CATEGORIZE" "END-OF-TOKENS-CATEGORY"
  50.          "COMPILE-LALR1-GRAMMAR" "COMPILE-SLR-GRAMMAR"
  51.          "DEBUG-PARSER"
  52.          "DEFRULE" "FILE-PARSER" "FIND-GRAMMAR" "IDENTITY*"
  53.          "IDENTIFIER" "IDENTIFIERP"
  54.          "KB-DOMAIN" "KB-DOMAIN-P" "KB-TYPE-NAME-P"
  55.          "KB-SEQUENCE" "KB-SEQUENCE-P" "*KB-SEQUENCE-SEPARATOR*"
  56.          "MAKE-KB-SEQUENCE" "KB-SEQUENCE-FIRST" "KB-SEQUENCE-REST"
  57.          "KB-DEF-SLOT-TYPE" "KB-SET-VALUED-SLOT-P"
  58.          "KB-SLOT-TYPE" "KB-SLOTS" "KB-SUPERTYPE" "KB-SUBTYPES"
  59.          "KB-LEGAL-SLOT-P"
  60.              "KB-TREE-ATTRIBUTES" "DEFINE-TREE-ATTRIBUTES" "DEF-TREE-ATTRIBUTES"
  61.          "PREORDER-TRANSFORM" "POSTORDER-TRANSFORM"
  62.          "KIDS" "FOR-EACH-KID" "FOR-EACH-KID!"
  63.          "FOR-EACH-DESCENDANT" 
  64.          "KB-COPY" "KB-EQUAL" "KB-EQUALP"
  65.          "LIST-PARSER" "LR-PARSE" "PRINT-ACTIONS" "READ-PARSER"
  66.          "COMPILE-FROM-COMMAND-LINE"
  67.          "EMPTY-SEQ" "SEQ-CONS" "EMPTY-SET" "SET-CONS" "EMPTY" 
  68.          "K-4-3" "K-2-1" "K-2-2" "K-3-2" "CONS-1-3" "CONS-2-3"
  69.          "SHOW-KB-HIERARCHY"
  70.          "ZEBU" "ZEBU-COMPILER" "ZEBU-COMPILE-FILE" "ZEBU-LOAD-FILE"
  71.          "ZEBU-RR" "ZEBU-TOP"
  72.          )
  73.     #-LUCID
  74.     (:import-from "CL-USER"
  75.           CL-USER::*LOAD-SOURCE-PATHNAME-TYPES*
  76.           CL-USER::*LOAD-BINARY-PATHNAME-TYPES*))
  77.  
  78. (in-package "ZB")
  79. (declaim (special *COMMENT-BRACKETS* *COMMENT-START* *PRESERVE-CASE*
  80.               *CASE-SENSITIVE* *DISALLOW-PACKAGES* *STRING-DELIMITER*
  81.               *SYMBOL-DELIMITER* *IDENTIFIER-START-CHARS*
  82.               *IDENTIFIER-CONTINUE-CHARS*
  83.               *ALLOW-CONFLICTS* *WARN-CONFLICTS*
  84.               *CURRENT-GRAMMAR* *GENERATE-DOMAIN*
  85.               *ZEBU-DIRECTORY*
  86.               ))
  87.  
  88. #-LUCID
  89. (declaim (special *LOAD-SOURCE-PATHNAME-TYPES*
  90.                   *LOAD-BINARY-PATHNAME-TYPES*))
  91. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  92. ;;                            End of zebu-package.l
  93. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  94.